home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / isuserfn.bas < prev   
BASIC Source File  |  1997-01-08  |  4KB  |  154 lines
  1. Attribute VB_Name = "IIUser"
  2. '----------------------------------------------------------------------------
  3. '   isuserfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept User Declaration:
  18. '----------------------------------------------------------------------------
  19. Public Type VIUser
  20.     userID                  As String
  21.     password                As String
  22. End Type
  23.  
  24. Public Type IEUser
  25.     lpUserID                  As String
  26.     lpPassword                As String
  27.     lnUserID                  As Integer
  28.     lnPassword                As Integer
  29. End Type
  30.  
  31. '/*  ISAPI User API.          */
  32. Public Declare Function IIInsertUser Lib "isapi.dll" (pUser As IEUser) As Long
  33. Public Declare Function IIDeleteUser Lib "isapi.dll" (pUser As IEUser, ByVal clause As String) As Long
  34. Public Declare Function IIModifyUser Lib "isapi.dll" (pUser As IEUser, ByVal clause As String) As Long
  35. Public Declare Function IIFetchUser Lib "isapi.dll" (pUser As IEUser, ByVal clause As String) As Long
  36. Public Declare Function IIFetchUsers Lib "isapi.dll" (ByRef pnTotal As Long, ByVal clause As String) As Long
  37. Public Declare Function IIGetUser Lib "isapi.dll" (pUser As IEUser, ByVal nTotal As Long) As Long
  38.  
  39. Public Function VBIIFetchUsers(ByRef rnTotal As Long, ByRef clause As String) As Long
  40.     Dim err As Long
  41.     
  42.     err = IIFetchUsers(rnTotal, clause)
  43.     
  44.     VBIIFetchUsers = err
  45.     
  46. End Function
  47.  
  48.  
  49. Public Function VBIIFetchUser(userUser As VIUser, ByRef clause As String) As Long
  50.     Dim User As IEUser
  51.     Dim err As Long
  52.     
  53.     Call VBIIInitUser(User)
  54.     
  55.     Call VBIIPrepareUser(User, userUser)
  56.     
  57.     err = IIFetchUser(User, clause)
  58.     
  59.     If err = 0 Then
  60.         Call VBIIConvertUser(User, userUser)
  61.     End If
  62.  
  63.     VBIIFetchUser = err
  64.     
  65. End Function
  66.  
  67. Public Function VBIIInsertUser(userUser As VIUser) As Long
  68.     Dim User As IEUser
  69.     Dim err As Long
  70.     
  71.     Call VBIIInitUser(User)
  72.  
  73.     Call VBIIPrepareUser(User, userUser)
  74.     
  75.     err = IIInsertUser(User)
  76.     
  77.     VBIIInsertUser = err
  78.     
  79. End Function
  80.  
  81. Public Function VBIIGetUser(userUser As VIUser, ByVal nIndex As Long) As Long
  82.     Dim User As IEUser
  83.     Dim err As Long
  84.         
  85.     Call VBIIInitUser(User)
  86.     
  87.     err = IIGetUser(User, nIndex)
  88.     
  89.     If err = 0 Then
  90.         Call VBIIConvertUser(User, userUser)
  91.     End If
  92.     
  93.     VBIIGetUser = err
  94.     
  95. End Function
  96.  
  97.  
  98. Public Function VBIIModifyUser(userUser As VIUser, ByRef clause As String) As Long
  99.     Dim User As IEUser
  100.     Dim err As Long
  101.     
  102.     Call VBIIInitUser(User)
  103.   
  104.     Call VBIIPrepareUser(User, userUser)
  105.    
  106.     err = IIModifyUser(User, clause)
  107.  
  108.     VBIIModifyUser = err
  109.     
  110. End Function
  111.  
  112. Public Function VBIIDeleteUser(userUser As VIUser, ByRef clause As String) As Long
  113.     Dim User As IEUser
  114.     Dim err As Long
  115.     
  116.     Call VBIIInitUser(User)
  117.  
  118.     Call VBIIPrepareUser(User, userUser)
  119.    
  120.     err = IIDeleteUser(User, clause)
  121.     
  122.     VBIIDeleteUser = err
  123.     
  124. End Function
  125.  
  126.  
  127. Public Function VBIIInitUser(User As IEUser)
  128.  
  129.     User.lnUserID = lnIIUserID
  130.     User.lpUserID = String(User.lnUserID, 0)
  131.     User.lnPassword = lnIIUserID
  132.     User.lpPassword = String(User.lnPassword, 0)
  133.  
  134. End Function
  135.  
  136. Public Function VBIIPrepareUser(User As IEUser, userUser As VIUser)
  137.         
  138.     User.lpUserID = userUser.userID
  139.     User.lpPassword = userUser.password
  140.  
  141.     User.lnUserID = Len(userUser.userID)
  142.     User.lnPassword = Len(userUser.password)
  143.   
  144. End Function
  145.  
  146. Public Function VBIIConvertUser(User As IEUser, userUser As VIUser)
  147.     
  148.     userUser.userID = User.lpUserID
  149.     userUser.password = User.lpPassword
  150.  
  151. End Function
  152.  
  153.  
  154.